package body strings is
   function "<"(C1,C2:cercle) return boolean is
   begin
      return C1.all < C2.all;
   end;

   function "<"(C1,C2:individu) return boolean is
   begin
      return C1.all < C2.all;
   end;


   function "<="(C1,C2:cercle) return boolean is
   begin
      return C1.all <= C2.all;
   end;

   function "<="(C1,C2:individu) return boolean is
   begin
      return C1.all <= C2.all;
   end;


   function ">"(C1,C2:cercle) return boolean is
   begin
      return C1.all > C2.all;
   end;

   function ">"(C1,C2:individu) return boolean is
   begin
      return C1.all > C2.all;
   end;


   function ">="(C1,C2:cercle) return boolean is
   begin
      return C1.all >= C2.all;
   end;

   function ">="(C1,C2:individu) return boolean is
   begin
      return C1.all >= C2.all;
   end;


   function "="(C1,C2:cercle) return boolean is
   begin
      return C1.all = C2.all;
   end;

   function "="(C1,C2:individu) return boolean is
   begin
      return C1.all = C2.all;
   end;



end strings;
